home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Neurons / apply-rules < prev    next >
Lisp/Scheme  |  1998-10-23  |  321b  |  11 lines
  1. apply-rules rules in-patterns 
  2.  
  3. Allows to run neuron rules without defining the neurons. This is suitable when shielding neurons within functions.
  4.  
  5. (defun melody-alter-lower (&rest patterns)
  6.   (apply-rules 
  7.    '((all-in 1 '(a a) -26 26 0) 
  8.      (transpose-one-symbol (in 1 0) -1)
  9.      (otherwise (in 1 0)))
  10.    patterns))
  11.